1 ' *** OISAC 2 *** NOM + LIB ***
5 A=1718:B=1712:GOSUB10:A=1724:B=1715:GOSUB10:END
10 FORI=0TO2:POKEA+I,PEEK(B+I):NEXT:RETURN